home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
TUTORIAL
/
1307B.ZIP
/
GARDEN.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
785b
|
37 lines
(* Chapter 13 - Program 5 *)
MODULE Garden;
FROM InOut IMPORT WriteString, WriteLn;
FROM RealInOut IMPORT WriteReal;
FROM Circles IMPORT AreaOfCircle, PerimeterOfCircle;
VAR Radius, Area, Circumference : REAL;
BEGIN (* Main program *)
Radius := 12.0;
AreaOfCircle(Radius,Area);
PerimeterOfCircle(Radius,Circumference);
(* Calculations complete - output results *)
WriteString("Radius = ");
WriteReal(Radius,12);
WriteString(" Area =");
WriteReal(Area,12);
WriteLn;
WriteString("Circumference = ");
WriteReal(Circumference,12);
WriteLn;
END Garden.
(* Result of execution
Radius = 1.2000E+001 Area = 4.5239E+002
Circumference = 7.5398E+001
*)